home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MUI / DEFTV13.LHA / Deft II / Sources / Locale.e < prev    next >
Encoding:
Text File  |  1994-09-02  |  6.1 KB  |  179 lines
  1. /****************************************************************
  2.    This file was created automatically by `FlexCat V1.3'
  3.    Do not edit by hand!
  4. ****************************************************************/
  5.  
  6.  
  7. OPT MODULE
  8.  
  9.  
  10. ->*****
  11. ->** External modules
  12. ->*****
  13. MODULE 'locale' , 'libraries/locale'
  14. MODULE 'utility/tagitem'
  15.  
  16.  
  17. ->*****
  18. ->** Object definitions
  19. ->*****
  20. OBJECT fc_type
  21.     id    :    LONG
  22.     str    :    LONG
  23. ENDOBJECT
  24.  
  25. EXPORT OBJECT catalog_DeftII
  26.     msg_DeftII_Error    :    fc_type
  27.     msg_Missing_Muimaster_Library    :    fc_type
  28.     msg_Missing_Icon_Library    :    fc_type
  29.     msg_Missing_Prefs_File    :    fc_type
  30.     msg_Wrong_Prefs_File    :    fc_type
  31.     msg_OK    :    fc_type
  32.     msg_Simple_OK    :    fc_type
  33.     msg_DeftII_Request    :    fc_type
  34.     msg_Yes_No    :    fc_type
  35.     msg_Really_Quit    :    fc_type
  36.     msg_Not_Enough_Memory    :    fc_type
  37.     msg_Not_Enough_Chip_Memory    :    fc_type
  38.     msg_Missing_Library    :    fc_type
  39.     msg_Arexx_Port    :    fc_type
  40.     msg_Internal_Problem    :    fc_type
  41.     msg_About_DeftII    :    fc_type
  42.     msg_About_Text    :    fc_type
  43.     msg_Wrong_Path_Met    :    fc_type
  44.     msg_Unknown_Arexx_Command    :    fc_type
  45.     msg_File_Requester_Still_Opened    :    fc_type
  46.     msg_AppDescription    :    fc_type
  47.     msg_WI_main    :    fc_type
  48.     msg_GR_default_tools    :    fc_type
  49.     msg_LA_old_def_tool    :    fc_type
  50.     msg_LA_new_def_tool    :    fc_type
  51.     msg_BT_delete_def_tool    :    fc_type
  52.     msg_GR_paths    :    fc_type
  53.     msg_BT_delete_path    :    fc_type
  54.     msg_LA_info    :    fc_type
  55.     msg_TX_info    :    fc_type
  56.     msg_GR_controls    :    fc_type
  57.     msg_BT_go    :    fc_type
  58.     msg_BT_stop    :    fc_type
  59.     msg_BT_save_prefs    :    fc_type
  60.     msg_BT_about    :    fc_type
  61.     msg_BT_quit    :    fc_type
  62. ENDOBJECT
  63.  
  64.  
  65. ->*****
  66. ->** Global variables
  67. ->*****
  68. DEF cat_DeftII : PTR TO catalog
  69.  
  70.  
  71. ->*****
  72. ->** Creation procedure
  73. ->*****
  74. EXPORT PROC create() OF catalog_DeftII
  75.  
  76.     cat_DeftII := NIL
  77.  
  78.     self.msg_DeftII_Error.id := 0    ;    self.msg_DeftII_Error.str := 'Deft II error !'
  79.     self.msg_Missing_Muimaster_Library.id := 1    ;    self.msg_Missing_Muimaster_Library.str := 'Can''t open muimaster.library !'
  80.     self.msg_Missing_Icon_Library.id := 2    ;    self.msg_Missing_Icon_Library.str := 'Can''t open icon.library !'
  81.     self.msg_Missing_Prefs_File.id := 3    ;    self.msg_Missing_Prefs_File.str := 'Can''t find preference file !'
  82.     self.msg_Wrong_Prefs_File.id := 4    ;    self.msg_Wrong_Prefs_File.str := 'Preference file is corrupted !'
  83.     self.msg_OK.id := 5    ;    self.msg_OK.str := '*_OK'
  84.     self.msg_Simple_OK.id := 6    ;    self.msg_Simple_OK.str := '_OK'
  85.     self.msg_DeftII_Request.id := 7    ;    self.msg_DeftII_Request.str := 'Deft II request !'
  86.     self.msg_Yes_No.id := 8    ;    self.msg_Yes_No.str := '*_Yes|_No'
  87.     self.msg_Really_Quit.id := 9    ;    self.msg_Really_Quit.str := '\ecYou have modified the preferences\n' +
  88.     '\ecwithout saving the changes...\n' +
  89.     '\ecReally quit ?'
  90.     self.msg_Not_Enough_Memory.id := 10    ;    self.msg_Not_Enough_Memory.str := 'Not enough memory !'
  91.     self.msg_Not_Enough_Chip_Memory.id := 11    ;    self.msg_Not_Enough_Chip_Memory.str := 'Not enough chip memory !'
  92.     self.msg_Missing_Library.id := 12    ;    self.msg_Missing_Library.str := 'Can''t open a needed library !'
  93.     self.msg_Arexx_Port.id := 13    ;    self.msg_Arexx_Port.str := 'Can''t create arexx port !'
  94.     self.msg_Internal_Problem.id := 14    ;    self.msg_Internal_Problem.str := 'Internal problem !'
  95.     self.msg_About_DeftII.id := 15    ;    self.msg_About_DeftII.str := 'About Deft II...'
  96.     self.msg_About_Text.id := 16    ;    self.msg_About_Text.str := '\ecDeft II is a giftware program.\n' +
  97.     '\ecI''m very interested in feedback of any kind.\n' +
  98.     '\n' +
  99.     '\ecSo don''t hesitate to contact me !\n' +
  100.     '\ec(see the doc for more details)\n' +
  101.     '\n' +
  102.     '\ecLionel Vintenat\n' +
  103.     '\ec(e-mail : vintenat@irit.fr)'
  104.     self.msg_Wrong_Path_Met.id := 17    ;    self.msg_Wrong_Path_Met.str := '\ecSome wrong paths were met during scan,\n' +
  105.     '\ecthey were removed from the path list.'
  106.     self.msg_Unknown_Arexx_Command.id := 18    ;    self.msg_Unknown_Arexx_Command.str := 'Unknown arexx command received !'
  107.     self.msg_File_Requester_Still_Opened.id := 19    ;    self.msg_File_Requester_Still_Opened.str := 'Can''t quit : a file requester is still opened !'
  108.     self.msg_AppDescription.id := 20    ;    self.msg_AppDescription.str := 'Program to easily change icon default tooltypes'
  109.     self.msg_WI_main.id := 21    ;    self.msg_WI_main.str := 'Deft II v1.3, © 1994 Lionel Vintenat'
  110.     self.msg_GR_default_tools.id := 22    ;    self.msg_GR_default_tools.str := 'Default tools'
  111.     self.msg_LA_old_def_tool.id := 23    ;    self.msg_LA_old_def_tool.str := 'Old'
  112.     self.msg_LA_new_def_tool.id := 24    ;    self.msg_LA_new_def_tool.str := 'New'
  113.     self.msg_BT_delete_def_tool.id := 25    ;    self.msg_BT_delete_def_tool.str := '_d Delete'
  114.     self.msg_GR_paths.id := 26    ;    self.msg_GR_paths.str := 'Paths'
  115.     self.msg_BT_delete_path.id := 27    ;    self.msg_BT_delete_path.str := '_l Delete'
  116.     self.msg_LA_info.id := 28    ;    self.msg_LA_info.str := 'File'
  117.     self.msg_TX_info.id := 29    ;    self.msg_TX_info.str := 'Boring...'
  118.     self.msg_GR_controls.id := 30    ;    self.msg_GR_controls.str := 'Deft II controls'
  119.     self.msg_BT_go.id := 31    ;    self.msg_BT_go.str := '_g GO !!!'
  120.     self.msg_BT_stop.id := 32    ;    self.msg_BT_stop.str := '_s Stop'
  121.     self.msg_BT_save_prefs.id := 33    ;    self.msg_BT_save_prefs.str := '_p Save prefs'
  122.     self.msg_BT_about.id := 34    ;    self.msg_BT_about.str := '_a About'
  123.     self.msg_BT_quit.id := 35    ;    self.msg_BT_quit.str := '_q Quit'
  124.  
  125. ENDPROC
  126.  
  127.  
  128. ->*****
  129. ->** Opening catalog procedure
  130. ->*****
  131. EXPORT PROC open( loc : PTR TO locale , language : PTR TO CHAR ) OF catalog_DeftII
  132.  
  133.     DEF tag , tagarg
  134.  
  135.     IF ( localebase AND ( cat_DeftII = NIL ) )
  136.  
  137.         IF language
  138.  
  139.             tag := OC_LANGUAGE
  140.             tagarg := language
  141.  
  142.         ELSE
  143.  
  144.             tag:= TAG_IGNORE
  145.  
  146.         ENDIF
  147.  
  148.         cat_DeftII := OpenCatalogA( loc , 'DeftII.catalog' ,
  149.                                 [    OC_BUILTINLANGUAGE , 'english' ,
  150.                                     tag , tagarg ,
  151.                                     OC_VERSION , 1 ,
  152.                                     TAG_DONE    ])
  153.  
  154.     ENDIF
  155.  
  156. ENDPROC
  157.     
  158.  
  159. ->*****
  160. ->** Closing catalog procedure
  161. ->*****
  162. EXPORT PROC close() OF catalog_DeftII
  163.  
  164.     IF localebase THEN CloseCatalog( cat_DeftII )
  165.     cat_DeftII := NIL
  166.  
  167. ENDPROC
  168.  
  169.  
  170. ->*****
  171. ->** Procedure which returns the correct string according to the catalog
  172. ->*****
  173. EXPORT PROC get_string( fcstr : PTR TO fc_type ) RETURN IF cat_DeftII THEN GetCatalogStr( cat_DeftII , fcstr.id , fcstr.str ) ELSE fcstr.str
  174.  
  175.  
  176. /****************************************************************
  177.    End of the automatically created part!
  178. ****************************************************************/
  179.